home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 031-040 / amok40 / flanz / intuisup.def < prev    next >
Text File  |  1993-11-04  |  1KB  |  45 lines
  1. DEFINITION MODULE IntuiSup;
  2. (*---------------------------------------------------------------------------
  3.    :Program.    IntuiSup.Def
  4.    :Version.    1.8
  5.    :History.    Dez-89
  6.    :Author.     Markus Peuckert
  7.    :Address.    Schützenstr. 50, D-3550 Marburg, West-Germany,
  8.    :Copyright.  PD
  9.    :Language.   Modula-2
  10.    :Translator. M2Amiga V3.3d
  11. ---------------------------------------------------------------------------*)
  12.  
  13. FROM SYSTEM    IMPORT    ADDRESS;
  14. FROM Intuition    IMPORT    Gadget, IntuiText, Border, StringInfo, ActivationFlags,
  15.             ActivationFlagSet, IDCMPFlagSet, WindowFlagSet,
  16.             ScreenPtr, WindowPtr, ScreenFlagSet;
  17. FROM Graphics    IMPORT    ViewModeSet;
  18.  
  19.  
  20. PROCEDURE InitBorder (VAR Bord : Border; xyData, next : ADDRESS);
  21.  
  22. PROCEDURE InitStringInfo (VAR Info : StringInfo;
  23.               VAR buf, unbuf : ARRAY OF CHAR);
  24.  
  25. PROCEDURE InitIText (VAR IText : IntuiText; x,y : INTEGER; text : ADDRESS);
  26.  
  27. PROCEDURE CreateGadget (VAR Gad : Gadget; x,y,w,h,ID : INTEGER; Type:CARDINAL;
  28.              next, Info, Bord, Text : ADDRESS;
  29.              Activ : ActivationFlagSet);
  30.  
  31. PROCEDURE CreateScreen (w,h,d : INTEGER; vm : ViewModeSet; t,gad : ADDRESS)
  32.                                  : ScreenPtr;
  33.  
  34. PROCEDURE CreateWindow(x,y,w,h : INTEGER; if: IDCMPFlagSet; wf: WindowFlagSet;
  35.                        gad,scr,tit : ADDRESS; typ : ScreenFlagSet) : WindowPtr;
  36.  
  37. PROCEDURE IDCMPOn (window : WindowPtr; flags : IDCMPFlagSet);
  38.  
  39. PROCEDURE IDCMPOff (window : WindowPtr);
  40.  
  41. PROCEDURE ActivWindow () : WindowPtr;
  42.  
  43.  
  44. END IntuiSup.Def
  45.